home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_151_Select one.bin < prev    next >
Text File  |  1995-11-23  |  1KB  |  42 lines
  1. ItemType: WIND
  2. Rect: 219,302,499,397
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Select one
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue┬if objValue="Open" then ┬  wsSet wdID,"List","DoubleClickItem", "OK"┬  get wsGet(wdID,"List","SelectionText")┬  put it into xx┬  if xx=empty then wsSet wdID,"List","Selection", "1"┬end if┬--end windowEvent
  9. Params: i3_Text┬i0_TopLeft┬i3_SelectionText┬i4_Text
  10. Result: i3_SelectionText
  11.  
  12. ItemType: PUSH
  13. Rect: 199,68,271,88
  14. Name: OK
  15. DefaultItem: TRUE
  16. AutoClose: TRUE
  17.  
  18. ItemType: PUSH
  19. Rect: 195,33,275,53
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: LIST
  25. Rect: 5,2,181,93
  26. TextFont: Geneva
  27. TextSize: 10
  28. AutoSize: FALSE
  29. Name: List
  30. Logic: Single
  31. DoubleClickItem: 1
  32. Text: 
  33. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"List","SelectionText")┬if it=empty then┬  wsSet wdID,"OK","Disabled","true"┬else┬  wsSet wdID,"OK","Disabled","false"┬end if┬--end mouseUp┬
  34.  
  35. ItemType: TEXT
  36. Rect: 191,1,279,29
  37. TextFont: Geneva
  38. TextSize: 10
  39. AutoSize: FALSE
  40. Name: Type
  41. TextAlign: Center
  42. Text: Text